From: Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>
Date: Mon, 23 Aug 2021 22:05:58 +0000 (-0300)
Subject: Fix to clear echo-area after repeat-exit-timeout.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~18^2~1578
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0c640b82f0b3d9a06156a61af0aeec11a2f98ba0;p=emacs.git

Fix to clear echo-area after repeat-exit-timeout.

* lisp/repeat.el (repeat-echo-message): Use 'string-match-p'
to handle cases where echo-area contains other messages (bug#50176).
---

diff --git a/lisp/repeat.el b/lisp/repeat.el
index cec3cb643a1..054eacf8ec9 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -474,7 +474,7 @@ When Repeat mode is enabled, and the command symbol has the property named
         (if (current-message)
             (message "%s [%s]" (current-message) mess)
           (message mess)))
-    (when (string-prefix-p "Repeat with " (current-message))
+    (when (string-match-p "Repeat with " (current-message))
       (message nil))))
 
 (defvar repeat-echo-mode-line-string